home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / grapprog / splt300w.zip / THPGL2.ZIP / T220.BAS < prev    next >
BASIC Source File  |  1995-05-01  |  237b  |  9 lines
  1. 10 OPEN "T220.PLT" FOR OUTPUT AS 1
  2. 20 PRINT #1,"INPS7000,5000SP1SI.7,1PA1000,1000
  3. 30 PI=3.141593
  4. 40 A=TAN(20*(PI/180))
  5. 50 PRINT #1,"SL"A"LB+ Slant"+CHR$(3)
  6. 60 PRINT #1,"PA1000,300SL-.36LB- Slant"+CHR$(3)
  7. 70 PRINT #1,"PG;"
  8. 80 END
  9.